home *** CD-ROM | disk | FTP | other *** search
-
- #(
- #!
- (lisp::in-package 'user::compiler)
- 0
- compiler::*last-label*
- compiler::*exit*
- compiler::*unwind-exit*
- (lisp::cons (lisp::incf compiler::*last-label*) lisp::nil)
- (lisp::cons (lisp::incf compiler::*last-label*) lisp::t)
- lisp::when
- lisp::cdr
- compiler::wt-nl1
- "T"
- lisp::car
- ":;"
- lisp::progn
- lisp::rplacd
- compiler::wt
- "goto T"
- ";"
- compiler::*compiler-output1*
- compiler::*vs*
- compiler::fun-val
- compiler::*value-to-go*
- lisp::return
- compiler::top
- compiler::jump-true
- compiler::jump-false
- compiler::var
- (lisp::special compiler::global)
- (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-long-float compiler::inline-short-float)
- compiler::vs
- compiler::bds-bind
- 1
- compiler::frame
- (compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-long-float compiler::inline-short-float)
- compiler::tail-recursion-mark
- compiler::jump
- compiler::return-fixnum
- compiler::*next-cvar*
- compiler::*reservation-cmacro*
- compiler::return-character
- compiler::return-long-float
- compiler::return-short-float
- compiler::return-object
- (lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float)
- compiler::next-label
- compiler::next-label*
- compiler::wt-label
- compiler::wt-go
- compiler::unwind-bds
- compiler::unwind-exit
- compiler::unwind-no-exit
- compiler::tail-recursion-possible
- compiler::wt1
- compiler::reset-top
- compiler::set-jump-true
- compiler::set-jump-false
- compiler::baboon
- compiler::set-loc
- compiler::vs-push
- compiler::fixnum-loc-p
- compiler::wt-fixnum-loc
- compiler::wt-vs
- compiler::character-loc-p
- compiler::wt-character-loc
- compiler::long-float-loc-p
- compiler::wt-long-float-loc
- compiler::short-float-loc-p
- compiler::wt-short-float-loc
- )
-